print ('my first R script')
perf_data <- read.table('raw_stats.dat',TRUE)
plot(100-perf_data[,'X.idle'],type='b',xlab='time in seconds',ylab='% Utilisation (Ui)')
u_i <- mean(100-perf_data[,'X.idle'])
d_i <- u_i/94
